home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / MAIN_FNL.DXR / 04957_TTape.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  1.8 KB  |  79 lines
  1. property ancestor, fRoomName, fCkrchNum, fExistOnStage
  2. global kRoomNames, kGirlNames, kGirlColors, gApp, gNavigator, gTV
  3.  
  4. on birth me, vSprNum, vID
  5.   set ancestor to NewObj("TAnim", vSprNum, vID)
  6.   mITape(me)
  7.   return me
  8. end
  9.  
  10. on mITape me
  11.   mStAnimGrp(me, 1)
  12.   mStAnimNumOne(me, 1, the number of cast "Tape")
  13.   mUpdateSpr(me)
  14.   set fRoomName to EMPTY
  15.   set fCkrchNum to 0
  16.   set fExistOnStage to 0
  17. end
  18.  
  19. on mAppearTape me, vRoomName, vCkrchNum
  20.   set fRoomName to vRoomName
  21.   set fCkrchNum to vCkrchNum
  22.   set aRoomNum to getPos(kRoomNames, fRoomName)
  23.   mStAnimGrp(me, 2)
  24.   mStAnimNumOne(me, 1, the number of cast ("VTitle" & vCkrchNum & aRoomNum))
  25.   mStAnimGrp(me, 1)
  26.   mStAnimNumOne(me, 1, the number of cast ("Tape" & vCkrchNum & aRoomNum))
  27.   mUpdateSpr(me)
  28.   mOnStage(me)
  29.   updateStage()
  30.   set fExistOnStage to 1
  31. end
  32.  
  33. on mIsExistOnStage me
  34.   return fExistOnStage
  35. end
  36.  
  37. on mMoveToTV me
  38.   set aDestLocH to 320
  39.   set aDestLocV to 400
  40.   set aNumMove to float(2)
  41.   set aDH to (aDestLocH - mGtLocH(me)) / aNumMove
  42.   set aDV to (aDestLocV - mGtLocV(me)) / aNumMove
  43.   repeat with aMoveCount = 1 to aNumMove
  44.     mStLocH(me, mGtLocH(me) + aDH)
  45.     mStLocV(me, mGtLocV(me) + aDV)
  46.     updateStage()
  47.   end repeat
  48.   set aRoomNum to getPos(kRoomNames, fRoomName)
  49.   set aGirlName to getAt(kGirlNames, fCkrchNum)
  50.   mStLocH(me, 280)
  51.   mStLocV(me, 405)
  52.   mStAnimGrp(me, 2)
  53.   mUpdateSpr(me)
  54.   updateStage()
  55. end
  56.  
  57. on mEjectFromTV me
  58.   mStAnimGrp(me, 1)
  59.   mUpdateSpr(me)
  60.   mRestoreLoc(me)
  61.   updateStage()
  62. end
  63.  
  64. on mMouseUp me
  65.   busyCurs()
  66.   hideNavigator()
  67.   set aCurRoomName to mGtCurRoomName(gNavigator)
  68.   mNewMainLayer(gApp, "TLayer", aCurRoomName & "Mov")
  69.   busyCurs()
  70.   showTV()
  71.   unLoad()
  72.   busyCurs()
  73.   mEjectTape(gTV)
  74.   mMoveToTV(me)
  75.   mStPlayingTape(gTV, me)
  76.   mStMovie(gTV, fRoomName, fCkrchNum)
  77.   resetCurs()
  78. end
  79.